home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / bubble 2 < prev    next >
Text File  |  1999-06-15  |  1KB  |  26 lines
  1. Category: Filter Factory Gallery B
  2. Title: Bubble...
  3. Author: Mario Klingemann
  4. Copyright: Copyright © 1996 Visual Manipulation
  5.  
  6. ctl[0]: Inner Radius
  7. ctl[1]: Outer Radius
  8. ctl[2]: Center X
  9. ctl[3]: Center Y
  10. ctl[4]: Inner Shading
  11. ctl[5]: Outer Shading
  12. ctl[6]:X Distortion
  13. ctl[7]: Y Distortion
  14. val[0]: 132
  15. val[1]: 135
  16. val[2]: 137
  17. val[3]: 130
  18. val[4]: 169
  19. val[5]: 255
  20. val[6]: 255
  21. val[7]: 251
  22. R:put(c2m(x-val(2,0,X),y-val(3,0,Y)),1),put(c2d(x-val(2,0,X),y-val(3,0,Y)),3),put(mix(ctl(5),ctl(4),get(1)-val(0,0,M),val(1,0,M)),0),put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  23. G:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  24. B:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  25. A:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?get(2):c
  26.